(byte-compile-from-buffer): Bind print-level.

diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el
index 22592eb2e3632f272ed89dd97ea3d619b3995a99..3a52413ecc687e651cc1c1893e9f729edf8e972e 100644 (file)
--- a/lisp/emacs-lisp/bytecomp.el
+++ b/lisp/emacs-lisp/bytecomp.el
@@ -1322,6 +1322,7 @@ With argument, insert value in current buffer after the form."
        (float-output-format nil)
        (case-fold-search nil)
        (print-length nil)
+       (print-level nil)
        ;; Simulate entry to byte-compile-top-level
        (byte-compile-constants nil)
        (byte-compile-variables nil)